Ulrich Mueller <ulm at gentoo.org>

(doctor-adverbp): Exclude some nouns.	(Bug#4565)

diff --git a/lisp/play/doctor.el b/lisp/play/doctor.el
index 2d4ebd75edefc2f9a35345140455f076ca2c739f..dc5f3ca4b891d3979a4ab3fd8fd0976d77969766 100644 (file)
--- a/lisp/play/doctor.el
+++ b/lisp/play/doctor.el
@@ -1190,7 +1190,8 @@ the subject noun, and return the portion of the sentence following it."
 (defun doctor-adverbp (xx)
   (let ((xxstr (doctor-make-string xx)))
     (and (>= (length xxstr) 2)
-        (string-equal (substring (doctor-make-string xx) -2) "ly"))))
+        (string-equal (substring (doctor-make-string xx) -2) "ly")
+        (not (memq xx '(family fly jelly rally))))))
 
 (defun doctor-articlep (x)
   (memq x '(the a an)))